home *** CD-ROM | disk | FTP | other *** search
/ Revista do CD-ROM 102 / CD-ROM 102.iso / aplic / 2sync / 2SyncSetup.exe / modules / mt / panel / scripts / DefineButton2_295 / BUTTONCONDACTION on(release).as
Encoding:
Text File  |  2002-03-20  |  749 b   |  27 lines
  1. on(release){
  2.    allowDeselect = "0";
  3.    checker = "1";
  4.    while(checker < "8")
  5.    {
  6.       if(eval("../../../:weekDayArray").substr(checker,"1") eq "1")
  7.       {
  8.          allowDeselect += "1";
  9.       }
  10.       checker += "1";
  11.    }
  12.    if("1" < allowDeselect)
  13.    {
  14.       prevFrame();
  15.       if(whichDayNum == "1")
  16.       {
  17.          set("../../../:weekDayArray","0" add eval("../../../:weekDayArray").substr("2","6"));
  18.       }
  19.       else
  20.       {
  21.          firstString = eval("../../../:weekDayArray").substr("1",whichDayNum - "1");
  22.          set("../../../:weekDayArray",firstString add "0" add eval("../../../:weekDayArray").substr(whichDayNum + "1","7" - whichDayNum));
  23.       }
  24.    }
  25.    call("../../../summary/logic:buildSummary");
  26. }
  27.